home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 359 / def / numberio.def < prev    next >
Encoding:
Modula Definition  |  1989-01-09  |  2.1 KB  |  61 lines
  1. DEFINITION MODULE NumberIO;
  2. FROM Files IMPORT File, FileState;
  3. FROM SYSTEM IMPORT WORD;
  4. (*
  5. *    Copyright (c) 1985,1986,1987,1988,1989 by
  6. *    ana-systems, Foster City, California.
  7. *    All Rights Reserved.
  8. *
  9. *    This software is furnished under a license and may be used and copied
  10. *    only  in accordance with  the  terms  of  such  license and  with the
  11. *    inclusion of the above copyright notice.  This software or  any other
  12. *    copies thereof may not be provided or otherwise made available to any
  13. *    other  person.   No title to and ownership of the  software is  herby
  14. *    transferred.
  15. *
  16. *    The information in this software is  subject to change without notice
  17. *    and  should  not be construed as a commitment by ana-systems.   No
  18. *    warranty is implied or expressed.
  19. *
  20. *   SCCID  = "1.1    1/26/86"; 
  21. *)
  22.  
  23. EXPORT QUALIFIED
  24.     ReadInt,  ReadCard,  ReadNum,
  25.     WriteInt, WriteCard, WriteNum;
  26.  
  27.  
  28. PROCEDURE ReadInt (     file    : File;
  29.                     VAR int     : INTEGER;
  30.                     VAR success : BOOLEAN;
  31.                     VAR state   : FileState);
  32.  
  33. PROCEDURE ReadCard (    file    : File;
  34.                     VAR card    : CARDINAL;
  35.                     VAR success : BOOLEAN;
  36.                     VAR state   : FileState);
  37.  
  38. PROCEDURE ReadNum    (  file    : File;
  39.                     VAR num     : CARDINAL;
  40.                         base    : CARDINAL (* [2..36] *);
  41.                     VAR success : BOOLEAN;
  42.                     VAR state   : FileState);
  43.  
  44. PROCEDURE WriteInt (    file    : File;
  45.                         int     : INTEGER;
  46.                         width   : CARDINAL;
  47.                     VAR state   : FileState);
  48.  
  49. PROCEDURE WriteCard (   file    : File;
  50.                         card    : CARDINAL;
  51.                         width   : CARDINAL;
  52.                     VAR state   : FileState);
  53.  
  54. PROCEDURE WriteNum (    file    : File;
  55.                         num     : CARDINAL;
  56.                         base    : CARDINAL (* [2..36] *);
  57.                         width   : CARDINAL;
  58.                     VAR state   : FileState);
  59.  
  60. END NumberIO.
  61.